home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / exercise / circles.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-07  |  144 b   |  10 lines
  1. while true
  2. let X = random(5,315)
  3. let Y = random(5,235)
  4. let radius = random(5,25)
  5. let hue = random(1,235)
  6. color hue
  7. fillcircle X,Y,radius
  8. wend
  9.